home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cpp_libs / answrbok / 7_10.lha / 7_10 / test6.c < prev    next >
C/C++ Source or Header  |  1993-08-08  |  4KB  |  128 lines
  1. * Copyright (c) 1990 by AT&T Bell Telephone Laboratories, Incorporated. */
  2. * The C++ Answer Book */
  3. * Tony Hansen */
  4. * All rights reserved. */
  5. *ident    "@(#)ctrans:demo/task/regtest.C    1.1" */
  6. include <debug.h>    /* DELETE */
  7. **************************************************************************
  8.         Copyright (c) 1984 AT&T
  9.             All Rights Reserved      
  10.  
  11. THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T
  12.  
  13. The copyright notice above does not evidence any       
  14. actual or intended publication of such source code.
  15.  
  16. ****************************************************************************/
  17. include <process.h>
  18.  
  19. * non-trivial process example:
  20. Make a set of processes which pass an object round between themselves.
  21. Each process but the last creates the next process.
  22. Each process gets an object from the head of one queue, and puts
  23. the object on the tail of another queue.
  24. Each process quits after getting the object MAX_CYCLES times.
  25. Each process uses lots of registers that must be preserved across a switch.
  26. /
  27. onst int NTASKS = 1;
  28. onst int MAX_CYCLES = 5;
  29.  
  30. oid
  31. irty()
  32.  
  33. register    i, j, k, l, m, z;
  34. i = -1; j = -2; k = -3; l = -4; m = -5; z = -6;
  35.  
  36.  
  37. truct pc : process {                // derive a class from process
  38. queue_tail *t;
  39. queue_head *h;
  40. char *n;
  41.        pc(char*nn, queue_tail*nt, queue_head*nh) // process is not intended to be used directly
  42. : (nn)
  43. { 
  44.     t = nt; h = nh; n = nn;
  45. }
  46. long main();
  47. ;
  48.  
  49. ong pc::main()                    // process body serves as
  50.  
  51. register int    i, j, k, l, m, z;
  52. i = *n + 11; j = *n + 12; k = *n + 13;
  53. l = *n + 14; m = *n + 15; z = *n + 16;
  54.        printf("new pc(%s)\n",n);
  55. if (*n < 'a'+ NTASKS) {
  56.     char*    c = new char[2]; c[0] = *n + 1; c[1] = '\0';
  57.     queue_tail*    qt = new queue_tail;
  58.     pc*    next = new pc(c, t, qt->head());
  59.     next->exec();
  60.     t = qt;
  61. } else {
  62.     printf("%s: here we go\n", n);
  63.     t->put(new process_object);
  64. }
  65. if (this_process() != this) abort();
  66. if (i != *n + 11 || j != *n + 12 || k != *n + 13 ||
  67.     l != *n + 14 || m != *n + 15 || z != *n + 16) {
  68.     printf("pc:  lost regs! i==%d, j==%d, k==%d, l==%d, m==%d, z==%d\n", i, j, k, l, m, z);
  69.     printf("vals should be: i: %d, j: %d, k: %d, l: %d, m: %d, z: %d\n", *n + 11, *n + 12, *n + 13, *n + 14, *n + 15, *n + 16);
  70.     abort();
  71. }
  72.        for (int cycles = 0; cycles < MAX_CYCLES; cycles++) {
  73.     process_object* p = h->get();
  74.     dirty();
  75.     printf("process %s\n",n);
  76.     t->put(p);
  77. }
  78. printf("process %s: done.\n", n);
  79. exit(0);        // Always end process constructors with resultis.
  80.             // Behavior of those using return or running
  81.             // off the end of the function is undefined.
  82.             // Alternatively, use an infinite loop in
  83.             // constructor body.
  84.  
  85.  
  86. ain()
  87.  
  88. register int    i, j, k, l, m, z;
  89. queue_head* hh = new queue_head;
  90. queue_tail* t = hh->tail();
  91. queue_head* h;
  92.  
  93. printf("main\n");
  94.  
  95. char* n = "a"; // make a one letter process name
  96. i = *n + 1; j = *n + 2; k = *n + 3;
  97. l = *n + 4; m = *n + 5; z = *n + 6;
  98.  
  99. h = new queue_head;
  100. (new pc(n,t,h))->exec();
  101. printf("main()'s loop\n");
  102. if (i != *n + 1 || j != *n + 2 || k != *n + 3 ||
  103.     l != *n + 4 || m != *n + 5 || z != *n + 6) {
  104.     printf("main:  lost regs! i==%d, j==%d, k==%d, l==%d, m==%d, z==%d\n", i, j, k, l, m, z);
  105.     printf("values should be: i: %d, j: %d, k: %d, l: %d, m: %d, z: %d\n", *n + 1, *n + 2, *n + 3, *n + 4, *n + 5, *n + 6);
  106.     abort();
  107. }
  108. t = h->tail();
  109.        for (int cycles = 0; cycles < MAX_CYCLES; cycles++) {
  110.     process_object* p = hh->get();
  111.     if (i != *n + 1 || j != *n + 2 || k != *n + 3 ||
  112.         l != *n + 4 || m != *n + 5 || z != *n + 6) {
  113.         printf("main (after get):  lost regs! i==%d, j==%d, k==%d, l==%d, m==%d, z==%d\n", i, j, k, l, m, z);
  114.         printf("values should be:             i: %d, j: %d, k: %d, l: %d, m: %d, z: %d\n", *n + 1, *n + 2, *n + 3, *n + 4, *n + 5, *n + 6);
  115.         abort();
  116.     }
  117.     printf("main process\n");
  118.     t->put(p);
  119. }
  120. printf("main process: done.\n", n);
  121. main_process()->exit(0);        // main is a process too; it must also
  122.                 // end with exit (to allow any
  123.                 // remaining processes to run, otherwise
  124.                 // the whole process would exit).
  125.    printf("should not get here\n");
  126.    return 0;
  127.  
  128.